Namespace OpenArchive
    Namespace Document
        Namespace Components.Data
            Public Class IndexComponentData
                Inherits ComponentData
                Private m_Indexname As String
                Friend ReadOnly Property Name() As String
                    Get
                        Return m_Indexname
                    End Get
                End Property
                Friend Overrides Property Content() As Object
                    Get
                        Return MyBase.Content
                    End Get
                    Set(ByVal value As Object)
                        m_Indexname = value.GetType.Name
                        MyBase.Content = value
                    End Set
                End Property
            End Class
        End Namespace
    End Namespace
End Namespace


